perm filename PRIME.F4[1,MUS] blob sn#007317 filedate 1972-07-16 generic text, type T, neo UTF8
00100		DIMENSION IPRIME(1000)
00200		IPRIME(1)=2
00300		NPRIME=1
00400		DO 10 I=3,4001,2
00500		DO 8 J=1,NPRIME
00600	8	IF(I/IPRIME(J)*IPRIME(J).EQ.I)GO TO 10
00700		NPRIME=NPRIME+1
00800		IPRIME(NPRIME)=I	
00900	10	CONTINUE
01000		PRINT 11,(IPRIME(I),I=1,NPRIME)
01100	11	FORMAT (8I)
01200		END